home *** CD-ROM | disk | FTP | other *** search
/ BBS in a Box 7 / BBS in a Box - Macintosh - Volume VII (BBS in a Box) (January 1993).iso / Files / Hyper / Q-R / Renegade Legion 1.0.cpt / Renegade Legion 1.0 / card_4858.txt < prev    next >
Text File  |  1990-12-13  |  4KB  |  200 lines
  1. -- card: 4858 from stack: in.0
  2. -- bmap block id: 5288
  3. -- flags: 0000
  4. -- background id: 2788
  5. -- name: AR-Card
  6. ----- HyperTalk script -----
  7. on opencard
  8.   send closefield to card field "AR-PT"
  9. end opencard
  10.  
  11.  
  12. -- part 14 (field)
  13. -- low flags: 01
  14. -- high flags: 0000
  15. -- rect: left=298 top=83 right=180 bottom=362
  16. -- title width / last selected line: 0
  17. -- icon id / first selected line: 0 / 0
  18. -- text alignment: 65535
  19. -- font id: 2
  20. -- text size: 12
  21. -- style flags: 0
  22. -- line height: 16
  23. -- part name: AR-CO
  24.  
  25.  
  26. -- part 16 (field)
  27. -- low flags: 01
  28. -- high flags: 0000
  29. -- rect: left=272 top=83 right=180 bottom=299
  30. -- title width / last selected line: 0
  31. -- icon id / first selected line: 0 / 0
  32. -- text alignment: 65535
  33. -- font id: 2
  34. -- text size: 12
  35. -- style flags: 0
  36. -- line height: 16
  37. -- part name: AR-TN
  38.  
  39.  
  40. -- part 17 (field)
  41. -- low flags: 00
  42. -- high flags: 0000
  43. -- rect: left=226 top=83 right=180 bottom=273
  44. -- title width / last selected line: 0
  45. -- icon id / first selected line: 0 / 0
  46. -- text alignment: 65535
  47. -- font id: 2
  48. -- text size: 12
  49. -- style flags: 0
  50. -- line height: 16
  51. -- part name: AR-PT
  52. ----- HyperTalk script -----
  53. on closefield
  54.   Global ArTn,ArCo
  55.   put 0 into arton
  56.   put 0 into arcost
  57.   repeat with loop=1 to 6
  58.     get line loop of card field "AR-PT"
  59.     if it is not empty then
  60.       get value in line loop of card field "AR-PT"
  61.       put it into temp
  62.       divide temp by 10
  63.       put temp into line loop of card field "AR-TN"
  64.       add temp to arton
  65.       multiply temp by 50
  66.       put temp into line loop of card field "AR-CO"
  67.       add temp to arcost
  68.     else
  69.       put 0 into line loop of card field "AR-PT"
  70.       put 0 into line loop of card field "AR-TN"
  71.       put 0 into line loop of card field "AR-CO"
  72.     end if
  73.   end repeat
  74.   send closefield to card field "ST-AR-TN"
  75.   send closefield to card field "ST-AR-CO"
  76.   put arcost into ArCo
  77.   send opencard to bkgnd field "BG-CO"
  78.   put arton into ArTn
  79.   send opencard to bkgnd field "BG-TN"
  80.   send opencard to bkgnd field "BG-PW"
  81.   send opencard to bkgnd field "BG-EXPW"
  82.   send opencard to bkgnd field "BG-PW/TN"
  83.   send opencard to bkgnd field "BG-TH"
  84. end Closefield
  85.  
  86.  
  87. -- part 20 (field)
  88. -- low flags: 01
  89. -- high flags: 0000
  90. -- rect: left=298 top=183 right=204 bottom=375
  91. -- title width / last selected line: 0
  92. -- icon id / first selected line: 0 / 0
  93. -- text alignment: 65535
  94. -- font id: 2
  95. -- text size: 14
  96. -- style flags: 0
  97. -- line height: 18
  98. -- part name: ST-AR-CO
  99. ----- HyperTalk script -----
  100. on closefield
  101.   put 0 into temp
  102.   repeat with loop=1 to 6
  103.     get the value of line loop of card field "AR-CO"
  104.     add it to temp
  105.   end repeat
  106.   put temp into card field "ST-AR-CO"
  107. end closefield
  108.  
  109.  
  110. -- part 21 (field)
  111. -- low flags: 01
  112. -- high flags: 0000
  113. -- rect: left=261 top=183 right=204 bottom=299
  114. -- title width / last selected line: 0
  115. -- icon id / first selected line: 0 / 0
  116. -- text alignment: 65535
  117. -- font id: 2
  118. -- text size: 14
  119. -- style flags: 0
  120. -- line height: 18
  121. -- part name: ST-AR-TN
  122. ----- HyperTalk script -----
  123. on closefield
  124.   global ArTn
  125.   put 0 into temp
  126.   repeat with loop=1 to 6
  127.     get line loop of card field "AR-TN"
  128.     if it is not empty then
  129.       get the value of line loop of card field "AR-TN"
  130.       add it to temp
  131.     end if
  132.   end repeat
  133.   put temp into card field "ST-AR-TN"
  134.   put temp into ArTn
  135.   send opencard to bkgnd field "BG-TN"
  136. end closefield
  137.  
  138.  
  139. -- part contents for card part 16
  140. ----- text -----
  141. 0
  142. 0
  143. 0
  144. 0
  145. 0
  146. 0
  147.  
  148. -- part contents for card part 14
  149. ----- text -----
  150. 0
  151. 0
  152. 0
  153. 0
  154. 0
  155. 0
  156.  
  157. -- part contents for card part 18
  158. ----- text -----
  159. 0
  160.  
  161. -- part contents for card part 21
  162. ----- text -----
  163. 0
  164.  
  165. -- part contents for card part 20
  166. ----- text -----
  167. 0
  168.  
  169. -- part contents for background part 6
  170. ----- text -----
  171. 0
  172.  
  173. -- part contents for background part 17
  174. ----- text -----
  175. 0
  176.  
  177. -- part contents for background part 16
  178. ----- text -----
  179. 0
  180.  
  181. -- part contents for background part 18
  182. ----- text -----
  183. 0
  184.  
  185. -- part contents for background part 19
  186. ----- text -----
  187. 0
  188.  
  189. -- part contents for background part 20
  190. ----- text -----
  191. 0
  192.  
  193. -- part contents for card part 17
  194. ----- text -----
  195. 0
  196. 0
  197. 0
  198. 0
  199. 0
  200. 0